home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nordpool
/
nordpool mediagroup backgrounds vol 001.iso
/
npinstall
< prev
next >
Wrap
Text File
|
1995-10-25
|
10KB
|
308 lines
; Nordpool installer script (V1.0) ⌐ 1995 by Pit Vetterick
;--------------------------- Zuweisung ---------------------------------------
(set @default-dest "ram:")
(set usedir @default-dest)
(set #CDir "C:")
(set #SDir "S:")
(set #LIBSDir "Libs:")
;----------------------- German Text String ----------------------------------
(if (= @language "deutsch")
(
;============================= SYS-Version
(set #kick "Einige Tools ben÷tigt leider Amiga-OS 3.0 oder h÷her")
;============================ Benutzer Info
(set #Info-msg
(cat "\n\nNordpool Installationsskript.\n"
"\n Nordpool-Install V0.1 beta \n"
"\n"
"Nordpool ⌐ 1995 Nordpool Media Group\n"
"All rights reserved.\n"
)
)
;======================= temponΣr oder stationΣr
(set #Auswahl-msg
(cat "\nM÷chten Sie die CD temponΣr einrichten oder in einem\n"
"Verzeichnis auf Ihrer Festplatte installieren ?\n"
)
)
;============================== temponΣr
(set #temp-msg
(cat "\nTEMPON─R EINRICHTEN\n\n"
"Ihre Nordpool CD wird nun lediglich temponΣr\n"
"im RAM: eingerichtet.\n\n"
"Wollen Sie nach einem Systemstart, Programme\n"
"oder Anwendungen benutzen die eine Zuweisung\n"
"ben÷tigen, mⁿ▀ten Sie diesen Vorgang wieder-\n"
"holen oder die CD stationΣr installieren."
)
)
;============================== stationΣr
(set #stat-msg
(cat "\nINSTALLIEREN\n\n"
"Auf einer Partition Ihrer Wahl, wird das Verzeichnis\n\n"
"*** NPwork ***\n\n"
"angelegt und in der User-Startup zugewiesen.\n"
"Dieses Verzeichnis dient als Base fⁿr Anwendungen\n"
"der Nordpool-CD Serie.\n\n"
"Alle von Ihnen gewΣhlten Programme werden in dieses\n"
"Verzeichnis kopiert und sind damit fⁿr Sie schnell\n"
"zu finden.\n"
)
)
(set #dest-msg
(cat "\nWΣhlen Sie bitte die von Ihnen gewⁿnschte Verzeichnis\n"
)
)
(set #statcopy-msg
(cat "\nWΣhlen Sie bitte die von Ihnen ben÷tigten Programme\n"
)
)
(set #MD-msg
(cat "MP wird nun instaliert"
)
)
(set #VT-msg
(cat "ViewTek wird nun instaliert"
)
)
;========================== Add Assign NPwork
(set #HD-assign
(cat "ACHTUNG...folgende ASSIGN-Anweisungen werden in Ihre User-Startup eingetragen:"
)
)
;======================== Installation beendet
(set #Exit-msg
(cat "\n"
"\n"
"Die Nordpool CD ist nun installiert.\n"
"Wir hoffen, Sie sind mit der Installation\n"
"zurecht gekommen und wⁿnschen Ihnen nun\n"
"viel Spa▀ bei Ihrer creativen Arbeit.\n"
".\n"
"\n"
"Mit freundlichen Grⁿ▀en,\n"
"\n"
"\n"
"\n"
"Ihr Nordpool-Team"
)
)
)
)
;----------------------------- SYS-Version -----------------------------------
; make sure we are running under a 3.0 OS
(if (< (/ (getversion) 65536) 39)
(
(abort #kick)
)
)
;---------------------------- Benutzer Info ----------------------------------
(message #Info-msg)
;---------------------------- temponΣr oder stationΣr ------------------------
(set ProgVers
(askchoice
(prompt #Auswahl-msg)
(help @askchoice-help)
(choices "temponΣr" "stationΣr")
)
)
(if (= ProgVers 0)
; ............................................... (temponΣr)
; then
(
(message #temp-msg)
(set usedir "ram:")
(set scala "Nordpool:")
(set IDdir "Nordpool:Tools/AMIGA/ImageDesk")
(makeassign "POOl" useDir)
(makeassign "SCALA" scala)
)
; ............................................... (stationΣr)
; else
(
(message #stat-msg)
(set usedir
(askdir
(prompt #dest-msg)
(help @askdir-help)
(default @default-dest)
)
)
(set Modules
(askoptions
(prompt #statcopy-msg)
(help @askoptions-help)
(choices
"Nordpool"
"MPEG Play"
"ViewTek"
)
(default -1)
)
)
(if (> Modules 0)
(
;========================================================= NORDPOOL
(if (in Modules 0)
(
(copyfiles
(source "Nordpool:Tools/Amiga/NORDPOOL/")
(dest usedir)
(ALL)
)
(set #add-Nordpool
(cat "\nDas Verzeichnis Nordpool wird als\n"
"\n*** POOL: ***\n"
"\nIhrem System zugewiesen.\n"
"\nSie finden den Eintrag in Ihrer User-Startup als:\n"
"\n;Begin Nordpool "
"\nassign POOL: (Pfad)"
"\n;End Nordpool "
)
)
(set #adding-Nordpool "Nun wird das Nordpool Assign Ihrer User-StartUp Datei zugefⁿgt.")
;(set #adding-help "Dieses Assign MU▀ existieren!")
(message #add-Nordpool)
(makeassign "POOl" useDir)
(startup "Nordpool"
(command "Assign POOL: " usedir "\n")
(prompt #adding-Nordpool)
(help @adding-help)
)
)
)
;========================================================= MP
(if (in Modules 1)
(
(copyfiles
(prompt #MP-Msg)
(help @copyfiles-help)
(source "Nordpool:Tools/Amiga/MP/MP")
(dest #CDir)
)
)
)
;========================================================= VIEWTEK
(if (IN Modules 2)
(
(if (exists (tackon usedir "NORDPOOL/TOOLS/"))
(set destdir (tackon usedir "NORDPOOL/TOOLS"))
)
(message #VT-msg)
(set #CopyC-Msg
(cat "\nDiese Viewer unterstⁿtzen verschieden Grafikkarten\n"
"\nWelche Viewer sollen kopiert werde ?"
)
)
;====== install tools =====
(copyfiles
(prompt #CopyC-Msg)
(help @copyfiles-help)
(source "Nordpool:Tools/Amiga/Copy_to_c/VT/")
(dest #CDir)
(all)
(confirm 1)
)
;== install viewtek dir ==
(copyfiles
(source "Nordpool:Tools/Amiga/VIEWTEK/")
(dest destdir)
(ALL)
)
)
)
)
)
;................................................ stationΣres assign
(set #add-Scala
(cat "\nDas Verzeichnis Nordpool:Scala wird als\n"
"\n*** Scala: ***\n"
"\nIhrem System zugewiesen.\n"
"\nSie finden den Eintrag in Ihrer User-Startup als:\n"
"\n;Begin Scala "
"\nif exists Nordpool: "
"\nassign Scala: Nordpool:"
"\nendif "
"\n;End Scala "
)
)
(set #adding-Scala "Nun wird das Scala Assign Ihrer User-StartUp Datei zugefⁿgt.")
(message #add-Scala)
(set scala "Nordpool:")
(makeassign "SCALA" scala)
(startup "Scala"
(command "if exists nordpool:""\n")
(command "assign SCALA: nordpool:""\n")
(command "endif""\n")
(prompt #adding-Scala)
(help @adding-help)
)
)
)
;------------------------ Installation beendet -------------------------------
(set @default-dest usedir)
(message #exit-msg)